home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
024
/
modula-2
/
m2
/
newcli.mod
< prev
next >
Wrap
Text File
|
1995-03-17
|
510b
|
20 lines
MODULE NewCLI;
FROM AMIGADos IMPORT AMIGAFile, Close, Delay, Execute, Open;
FROM Terminal IMPORT WriteString, WriteLn;
VAR f1, f2: AMIGAFile;
ok: BOOLEAN;
BEGIN
WriteString('NewCLI Demo'); WriteLn;
WriteString('==========='); WriteLn; WriteLn;
WriteString('Use EndCLI in new window to exit!'); WriteLn;
Delay(50);
f1:=Open("CON:300/20/320/160/Modula-2 created NewCLI", TRUE);
f2:=AMIGAFile(0);
Execute("", f1, f2, ok);
Close(f1);
WriteString('Here we are again'); WriteLn;
END NewCLI.